Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE03/PERSEUS/PERSDEMO.ZIP/DEMOMAIN.DFM/DEMOMAIN.txt

Text File | 1995-07-13 | 27KB | 847 lines

object PDemoMain: TPDemoMain
  Left = 200
  Top = 101
  BorderIcons = [biSystemMenu, biMaximize]
  BorderStyle = bsDialog
  Caption = 'Perseus Visual Component Pack - Demo'
  ClientHeight = 308
  ClientWidth = 472
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object MainTabs: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 472
    Height = 308
    Align = alClient
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'General Info'
      object Label11: TLabel
        Left = 206
        Top = 16
        Width = 209
        Height = 28
        Caption = 'The Perseus VCP'
        Font.Color = clRed
        Font.Height = -24
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 176
        Top = 60
        Width = 232
        Height = 29
        AutoSize = False
        Caption =
          'Four native VCL components which will increase your Delphi-produ' +
          'ctivity!'
        WordWrap = True
      end
      object Label14: TLabel
        Left = 176
        Top = 106
        Width = 72
        Height = 13
        Caption = 'Copyright �:'
      end
      object Label15: TLabel
        Left = 258
        Top = 106
        Width = 127
        Height = 39
        Caption = 'Sebastian Modersohn Softwaredevelopment Heinestrasse 20'
        WordWrap = True
      end
      object Label16: TLabel
        Left = 257
        Top = 146
        Width = 190
        Height = 70
        AutoSize = False
        Caption =
          'D 15370 Petershagen, Germany   CompuServe: 100340,1474   EMail: ' +
          '[e-mail] or [e-mail] Phone: (++49)  (334' +
          '39) 7462'
        WordWrap = True
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 16
        Width = 143
        Height = 171
        TabOrder = 0
        object Image2: TImage
          Left = 4
          Top = 8
          Width = 135
          Height = 160
          AutoSize = True
          Picture.Data = {<image000.bmp>}
        end
      end
      object BitBtn9: TBitBtn
        Left = 16
        Top = 193
        Width = 143
        Height = 33
        Hint = 'Click here for detailed information about the Wheel!'
        HelpContext = 100
        Caption = '&Information'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
          33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
          FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
          FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
          FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
          FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
          FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
          3333333773FFFF77333333333FBFBF33333333333777773333330000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Virtual List Box'
      object Label1: TLabel
        Left = 288
        Top = 109
        Width = 146
        Height = 13
        Caption = 'This is our great virtual ListBox.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 280
        Top = 124
        Width = 159
        Height = 36
        Caption = 'TVListBox'
        Font.Color = clRed
        Font.Height = -32
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 319
        Top = 163
        Width = 77
        Height = 13
        Caption = 'It can hold up to'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 272
        Top = 177
        Width = 177
        Height = 33
        Caption = '2,147,483,647'
        Font.Color = clNavy
        Font.Height = -29
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 342
        Top = 213
        Width = 36
        Height = 13
        Caption = 'items !!!'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object VListBox1: TVListBox
        Left = 7
        Top = 8
        Width = 230
        Height = 153
        Hint =
          '&This VListBox has 2 billion items, 2 columns, the 10th item has' +
          ' a custom font (via OnGetItem) and the 4th item is protected (vi' +
          'a OnGetItem too)! Display updating while dragging the thumb of t' +
          'he vertical scrollbar and while changing the columns (optional)'
        Columns.Columns.Strings = (
          'Column 1;100'
          'Column 2;36')
        RowCount = 2147483647
        RowHeight = 15
        AlwaysHScrollbar = True
        MultiSelect = True
        ChangeColsImmediate = True
        VScrollTrack = True
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ShowHint = True
        ParentShowHint = False
        OnGetItem = VListBox1GetItem
        OnChange = VListBox1Change
        OnIsProtected = VListBox1IsProtected
      end
      object BitBtn2: TBitBtn
        Left = 260
        Top = 10
        Width = 186
        Height = 33
        Hint = 'Click here for detailed information about the Wheel!'
        HelpContext = 200
        Caption = 'Information'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
          33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
          FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
          FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
          FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
          FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
          FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
          3333333773FFFF77333333333FBFBF33333333333777773333330000}
        Layout = blGlyphRight
        Margin = 38
        NumGlyphs = 2
        Style = bsNew
        Spacing = 20
      end
      object BitBtn3: TBitBtn
        Left = 260
        Top = 50
        Width = 186
        Height = 33
        HelpContext = 1000
        Caption = 'How to purchase'
        TabOrder = 4
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
          1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
          1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
          193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
          11155557F755F777777555000755033305555577755F75F77F55555555503335
          0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
          05555757F75F75557F5505000333555505557F777FF755557F55000000355557
          07557777777F55557F5555000005555707555577777FF5557F55553000075557
          0755557F7777FFF57555553350000055555555775777775555550000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
      object Memo1: TMemo
        Left = 7
        Top = 184
        Width = 231
        Height = 66
        Hint = '&The items which are selected if Track Selections was checked!'
        Lines.Strings = (
          'Selections')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object CheckBox1: TCheckBox
        Left = 7
        Top = 164
        Width = 137
        Height = 17
        Hint = '&Check only if you select small ranges or the Memo would burst!'
        Caption = 'Track Selections'
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 1
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Slider'
      object Label3: TLabel
        Left = 172
        Top = 208
        Width = 252
        Height = 31
        Caption =
          'These 3 sliders show only SOME of the properties. And every prop' +
          'erty can be combined with the others!'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label8: TLabel
        Left = 224
        Top = 132
        Width = 141
        Height = 42
        Caption = 'TSlider'
        Font.Color = clRed
        Font.Height = -37
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 232
        Top = 112
        Width = 115
        Height = 16
        Caption = 'This is our great'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 250
        Top = 176
        Width = 81
        Height = 16
        Caption = 'component!'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label20: TLabel
        Left = 123
        Top = 6
        Width = 53
        Height = 13
        AutoSize = False
      end
      object Label21: TLabel
        Left = 148
        Top = 110
        Width = 46
        Height = 13
        AutoSize = False
      end
      object Label22: TLabel
        Left = 148
        Top = 170
        Width = 46
        Height = 13
        AutoSize = False
      end
      object Label13: TLabel
        Left = 20
        Top = 23
        Width = 254
        Height = 13
        Caption = 'Now the background of the Slider can be transparent!'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 85
        Top = 62
        Width = 137
        Height = 13
        Caption = 'but this causes flickering :-< !'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Slider1: TSlider
        Left = 13
        Top = 21
        Width = 275
        Height = 67
        Hint =
          '&Standard Slider: Win95 frames, PointerDown, scale below, connec' +
          'ted outer, enlarge every 5th tick and transparent...'
        ShowHint = True
        ParentShowHint = False
        FrameSize = 7
        ThumbSize = 30
        PositionStep = 10
        ScaleHeight = 10
        ScaleDistance = 13
        OnSelect = Slider1Select
      end
      object Slider2: TSlider
        Left = 12
        Top = 97
        Width = 51
        Height = 153
        Hint =
          '&Slider with rect-thumb, both scales, scale orig is outside, rea' +
          'cts on tracking too. Only FocusColor (clActiveCaption).'
        Transparent = False
        ShowHint = True
        ParentShowHint = False
        Color = clWhite
        ParentColor = False
        FocusAction = faFocusColor
        FrameSize = 7
        Orientation = Vertical
        Groove = None
        Thumb = Rect
        ThumbStyle = fsSpeedButton
        PositionMin = -100
        PositionStep = 10
        ScaleHeight = 10
        ScaleConnect = False
        ScaleColor = clBlue
        ScalePosition = Both
        ScaleDistance = 4
        OnSelect = Slider2Track
        OnTrack = Slider2Track
      end
      object Slider3: TSlider
        Left = 76
        Top = 96
        Width = 51
        Height = 153
        Hint =
          '&No mainframe, raised groove, square thumb with Win31 border, re' +
          'acts only after selecting. FocusColor is red AND FocusRect is dr' +
          'awn!'
        Transparent = False
        ShowHint = True
        ParentShowHint = False
        Color = 16777088
        ParentColor = False
        FocusAction = faBoth
        Frame = None
        FrameSize = 7
        Orientation = Vertical
        Groove = Raised
        Thumb = Square
        ThumbSize = 15
        ThumbStyle = fsWin31
        PositionMax = 400
        PositionStep = 8
        ScaleHeight = 10
        ScaleOrig = Inner
        ScalePosition = AboveOrLeft
        ScaleDistance = 5
        FocusColor = clRed
        OnSelect = Slider3Track
      end
      object BitBtn4: TBitBtn
        Left = 300
        Top = 22
        Width = 140
        Height = 33
        Hint = 'Click here for detailed information about the Wheel!'
        HelpContext = 300
        Caption = '&Information'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
          33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
          FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
          FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
          FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
          FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
          FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
          3333333773FFFF77333333333FBFBF33333333333777773333330000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
      object BitBtn5: TBitBtn
        Left = 300
        Top = 64
        Width = 140
        Height = 33
        HelpContext = 1000
        Caption = 'How to purchase'
        TabOrder = 4
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
          1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
          1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
          193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
          11155557F755F777777555000755033305555577755F75F77F55555555503335
          0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
          05555757F75F75557F5505000333555505557F777FF755557F55000000355557
          07557777777F55557F5555000005555707555577777FF5557F55553000075557
          0755557F7777FFF57555553350000055555555775777775555550000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Wheel'
      object Label7: TLabel
        Left = 15
        Top = 193
        Width = 304
        Height = 39
        Caption =
          'This is a control for selecting values. You can select values wi' +
          'th dragging (Esc aborts!) or the cursor keys including Home, End' +
          ', PgDn and PgUp.'
        WordWrap = True
      end
      object Label18: TLabel
        Left = 28
        Top = 3
        Width = 75
        Height = 13
        AutoSize = False
      end
      object Label19: TLabel
        Left = 177
        Top = 4
        Width = 69
        Height = 13
        AutoSize = False
      end
      object Label26: TLabel
        Left = 23
        Top = 164
        Width = 44
        Height = 13
        Hint = 'Disabled!'
        Caption = 'Disabled!'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Wheel1: TWheel
        Left = 19
        Top = 20
        Width = 95
        Height = 95
        Hint =
          '&A well designed wheel with "fat" pointer and scale and SpeedBut' +
          'ton-Frame'
        ParentShowHint = False
        ShowHint = True
        ForceSquare = False
        PointerDistance = 0
        ScaleLength = 7
        ScaleWidth = 2
        ScaleTicks = 14
        OnSelect = Wheel1Select
      end
      object Wheel2: TWheel
        Left = 136
        Top = 20
        Width = 143
        Height = 89
        Hint =
          '&This weel isn'#39't well designed at all, but it shows some possibi' +
          'lities: lowered Win95 frame, huge scale, balance option and some' +
          ' "nice" colors'
        ParentShowHint = False
        ShowHint = True
        Color = clGreen
        ParentColor = False
        Balance = True
        ForceSquare = False
        FocusAction = faFocusColor
        PositionMax = 200
        PositionMin = -200
        PositionStep = 10
        PointerDistance = 6
        ScaleColor = clMaroon
        ScaleLength = 10
        ScaleWidth = 5
        ScaleDegrees = 250
        ScaleTicks = 8
        WheelStyle = Lowered
        WheelFrame = fsWin95
        WheelColor = clYellow
        FocusColor = clBlue
        OnTrack = Wheel2Track
        OnSelect = Wheel2Track
      end
      object BitBtn1: TBitBtn
        Left = 300
        Top = 22
        Width = 140
        Height = 33
        Hint = 'Click here for detailed information about the Wheel!'
        HelpContext = 400
        Caption = '&Information'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
          33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
          FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
          FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
          FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
          FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
          FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
          3333333773FFFF77333333333FBFBF33333333333777773333330000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
      object BitBtn7: TBitBtn
        Left = 300
        Top = 64
        Width = 140
        Height = 33
        HelpContext = 1000
        Caption = 'How to purchase'
        TabOrder = 6
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
          1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
          1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
          193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
          11155557F755F777777555000755033305555577755F75F77F55555555503335
          0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
          05555757F75F75557F5505000333555505557F777FF755557F55000000355557
          07557777777F55557F5555000005555707555577777FF5557F55553000075557
          0755557F7777FFF57555553350000055555555775777775555550000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
      object Wheel4: TWheel
        Left = 90
        Top = 128
        Width = 47
        Height = 47
        FocusAction = faBoth
        PointerDistance = 0
        ScaleLength = 6
        ScaleDegrees = 360
        WheelFrame = fsWin31
        FocusColor = clBlue
      end
      object Wheel5: TWheel
        Left = 164
        Top = 128
        Width = 47
        Height = 47
        PointerDistance = 5
        WheelStyle = Lowered
        WheelFrame = fsWin95
        WheelColor = clWhite
      end
      object Wheel3: TWheel
        Left = 18
        Top = 124
        Width = 47
        Height = 47
        Enabled = False
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'PSLabel'
      object PSLabel1: TPSLabel
        Left = 42
        Top = 101
        Width = 192
        Height = 114
        Caption =
          'The first Label component which can have Block-Alignment! If you' +
          ' register this component, you'#39'll also have acess to a new method' +
          ' called "PSDrawText" which can display text in Block-Alignment!'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        Alignment = PSBlockAdjust
        AutoSize = False
        OrigX = 0
        FontAngle = 0
        Transparent = False
        OrigY = 0
      end
      object Label23: TLabel
        Left = 96
        Top = 26
        Width = 60
        Height = 13
        Caption = 'This is our'
      end
      object Label24: TLabel
        Left = 72
        Top = 42
        Width = 119
        Height = 28
        Caption = 'TPSLabel'
        Font.Color = clRed
        Font.Height = -24
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 96
        Top = 70
        Width = 63
        Height = 13
        Caption = 'component'
      end
      object PSLabel2: TPSLabel
        Left = 244
        Top = 117
        Width = 206
        Height = 109
        Caption = 'Rotated text is also possible!'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        OrigX = 0
        FontAngle = 25
        Transparent = False
        OrigY = 92
      end
      object BitBtn10: TBitBtn
        Left = 300
        Top = 22
        Width = 140
        Height = 33
        Hint = 'Click here for detailed information about the Wheel!'
        HelpContext = 500
        Caption = '&Information'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
          33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
          FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
          FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
          FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
          FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
          FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
          3333333773FFFF77333333333FBFBF33333333333777773333330000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
      object BitBtn11: TBitBtn
        Left = 300
        Top = 64
        Width = 140
        Height = 33
        HelpContext = 1000
        Caption = 'How to purchase'
        TabOrder = 1
        OnClick = btnWheelHlpClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
          1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
          1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
          193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
          11155557F755F777777555000755033305555577755F75F77F55555555503335
          0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
          05555757F75F75557F5505000333555505557F777FF755557F55000000355557
          07557777777F55557F5555000005555707555577777FF5557F55553000075557
          0755557F7777FFF57555553350000055555555775777775555550000}
        Layout = blGlyphRight
        NumGlyphs = 2
        Style = bsNew
      end
    end
  end
  object MBHint1: TMBHint
    FixedWidth = 300
    Left = 442
    Top = 279
  end
end